home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / program / tpwpxeng.zip / KEYADD.PAS < prev    next >
Pascal/Delphi Source File  |  1991-07-22  |  538b  |  27 lines
  1. program KeyAdd;
  2. uses PXEngine, WinCrt;
  3.  
  4. type FieldHandleArray = array[1..2] of FieldHandle;
  5.  
  6. const TableName = 'Table';
  7.  
  8. var   PxErr: Integer;
  9.       FldHandles: FieldHandleArray;
  10.  
  11. procedure PX(Code : integer);
  12. begin
  13.   writeln(PXErrMsg(Code));
  14. end;
  15.  
  16. begin
  17.   FldHandles[1] := 1; FldHandles[2] := 2;
  18.  
  19.   PX(PXWinInit('MyApp', pxShared));
  20.   (* Create an index on fields 1 and 2 *)
  21.   PxErr := PXKeyAdd(TableName, 2, FldHandles, Primary);
  22.   if PxErr <> PxSuccess then
  23.     Writeln(PxErrMsg(PxErr));
  24.  
  25.   PX(PXExit);
  26. end.
  27.